home *** CD-ROM | disk | FTP | other *** search
- /* Name: Fade Demo
- ** Author: Paul Manias
- ** Copyright: DreamWorld Productions (c) 1996-1997. Freely distributable.
- */
-
- MODULE 'dpkernel','gms/dpkernel','graphics/pictures','files/files'
- MODULE 'screens','system/register','system/modules','graphics/screens'
-
- PROC main()
- DEF screen=NIL:PTR TO screen, state=NIL:LONG, loadpic=NIL:PTR TO picture
- DEF picfile:filename, scrmodule=NIL:PTR TO module
-
- picfile := [ ID_FILENAME, 'GMS:demos/data/PIC.Green']:filename
-
- IF dpkbase := OpenLibrary('GMS:libs/dpkernel.library',0)
- SetUserPrefs(0)
-
- IF (scrmodule := Init([TAGS_MODULE,NIL,
- MODA_NUMBER, MOD_SCREENS,
- MODA_TABLETYPE, JMP_AMIGAE,
- TAGEND], NIL))
-
- scrbase := scrmodule.modbase
-
- IF (loadpic := Load(picfile,ID_PICTURE))
- IF (screen := Init([TAGS_SCREEN,0,
- GSA_MEMPTR1, loadpic.data,
- GSA_PICWIDTH, loadpic.width,
- GSA_PICHEIGHT,loadpic.height,
- GSA_PLANES, loadpic.planes,
- GSA_SCRMODE, loadpic.scrmode,
- GSA_SCRTYPE, loadpic.scrtype,
- TAGEND], NIL))
-
- Display(screen)
- WaitTime(100)
-
- REPEAT
- WaitVBL()
- WaitVBL()
- state := ColourToPalette(screen,state,2,0,32,loadpic.palette,$000000)
- UNTIL (state = 0)
-
- WaitTime(60)
-
- REPEAT
- WaitVBL()
- WaitVBL()
- state := PaletteToColour(screen,state,1,0,32,loadpic.palette,$FFFFFF)
- UNTIL (state = 0)
-
- WaitTime(30)
-
- REPEAT
- WaitVBL()
- WaitVBL();
- state := ColourMorph(screen,state,4,0,32,$FFFFFF,$000000);
- UNTIL (state = 0)
-
- WaitTime(50)
-
- ENDIF
- ENDIF
- ENDIF
- Free(loadpic)
- Free(screen)
- Free(scrmodule)
- CloseDPK()
- ENDIF
- ENDPROC
-
-